﻿
Public Class dsVong
    Private _vong As Integer

    Public Sub New()
        _vong = 0

    End Sub
    Dim ctx As New QLDBDataContext
    Public Property Vong() As Integer
        Get
            Return _vong
        End Get
        Set(value As Integer)
            _vong = value
        End Set
    End Property
    Public Function LayDSVong() As List(Of dsVong)
        Dim query = From p In ctx.TRANDAUs
                     Select New dsVong With {.Vong = p.Vong}
                     Distinct

        Return query.ToList()
    End Function
End Class
